(defun-cvs-mode): Put `definition-name' property on

the constructed function name fun-1.

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 1e9f1bce7ce36c49ab300fe32c9801bf48ad9148..0f0ff76ed0cf09cfa8db48286960e6fa4859ddd6 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -775,6 +775,7 @@ clear what alternative to use.
 For interactive use, use `" (symbol-name fun) "' instead.")
             ,interact
             ,@body)
+          (put ',fun-1 'definition-name ',fun)
           (defun ,fun ()
             ,(concat line1 "\nWrapper function that switches to a *cvs* buffer
 before calling the real function `" (symbol-name fun-1) "'.\n")